home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 October / Macformat17.cdr / Shareware City / HyperCard / hyper-extras-hc / HyperExtras / HyperExtras.rsrc / TEXT_3016_createBtnText.txt < prev    next >
Encoding:
Text File  |  1994-07-11  |  858 b   |  21 lines
  1.  doMenu "New Button"
  2.   put line 1 of info into newName
  3.   put tempBtnNameSC into tname
  4.   set name of last button to tname
  5.   set rect of button tname to line 2 of info
  6.   put (item 1 of line 2 of info)&","&(item 2 of line 2 of info) into locB
  7.   if locB > botright of cd then
  8.     set loc of button tname to "50,50"
  9.   end if
  10.   set style of button tname to line 3 of info
  11.   set autoHilite of button tname to line 4 of info
  12.   set showName of button tname to line 5 of info
  13.   set Icon of button tname to line 6 of info
  14.   set textFont of button tname to line 7 of info
  15.   set textSize of button tname to line 8 of info
  16.   set textAlign of button tname to line 9 of info
  17.   set textStyle of button tname to line 10 of info
  18.   put number of lines in info into y
  19.   put line 11 to y of info into info
  20.   set script of button tname to info
  21.   set name of button tname to newName